home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 10 (1982-06)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 10 (1982-06)(Softdisk)(Side A).do / DEMO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  45 lines
  1. 5  REM  COPYRIGHT 1982, MARK PELCZARSKI
  2. 10  TEXT : HOME 
  3. 12  FOR I = 768 TO 781: READ J: POKE I,J: NEXT : DATA 160,164,140,14,3,32,64,144,206,14,3,208,248,96
  4. 15  PRINT "<CTRL-D>BLOADPAKNEW": CALL 24576: PRINT "<CTRL-D>BLOADTEXT.PAK"
  5. 16  HGR : POKE  -16302,0: POKE 24595,32: POKE 24633,64: POKE 24698,64: CALL 24576
  6. 20  PRINT "<CTRL-D>BLOADGMDEMO"
  7. 30  HGR : POKE  -16302,0: FOR I = 37888 TO 37906: POKE I, PEEK(I) +128: NEXT : FOR I = 1 TO 432: CALL 36928: NEXT 
  8. 35  PRINT "<CTRL-D>BLOADBLOCK"
  9. 40  FOR I = 37888 TO 37906: POKE I, PEEK(I) -128: NEXT : POKE I,255: CALL 768
  10. 100  PRINT "<CTRL-D>BLOADABACK.PAK"
  11. 103  POKE 24595,64: POKE 24633,96: POKE 24698,96: CALL 24576
  12. 105  POKE 24595,32: POKE 24633,64: POKE 24698,64: CALL 24576
  13. 115  POKE 49232,0
  14. 116  PRINT "<CTRL-D>BLOADD2.ANM"
  15. 120  FOR I = 1 TO 1100: CALL 36928: NEXT 
  16. 130  TEXT : HOME : PRINT "WITH THE PICTURE/OBJECT EDITOR YOU CAN  CREATE PICTURES SO THAT HUNDREDS WILL   FIT ON A SINGLE DISK...  PERFECT FOR    ADVENTURE GAMES AND OTHER PROGRAMS      USING A LARGE NUMBER OF GRAPHIC IMAGES."
  17. 150  PRINT "<CTRL-D>BLOAD PICSAMPLES"
  18. 151  PRINT "<CTRL-D>BLOADPICDRAWF"
  19. 160 A = 36352:B = 36400
  20. 165  POKE A,0: POKE A +1,64
  21. 170  HGR : HOME : VTAB 21: PRINT "HERE ARE SOME SAMPLES OF PICTURES, SOME OF WHICH WILL BE SEEN IN NEW ADVENTURE  GAMES ABOUT TO BE RELEASED.    (ARTWORK BY ANTONIO ANTIOCHIA AND DAVID LUBAR)";
  22. 180  FOR I = 1 TO 7
  23. 190  CALL B
  24. 220  FOR J = 1 TO 1000: NEXT J
  25. 230  NEXT I
  26. 235  HOME : VTAB 21: PRINT "AND OF COURSE MULTICOLORED OBJECTS CAN  BE PLACED ANYWHERE ON ANY PICTURE...": CALL 36405: FOR I = 1 TO 3500: NEXT 
  27. 240  HOME : TEXT : VTAB 4: PRINT "AND HERE ARE SOME OF THE SHAPES THAT": PRINT "CAN BE MADE WITH SUPER SHAPE TABLES"
  28. 250  PRINT "<CTRL-D>BLOADSSTSTUFF"
  29. 260  POKE 4,150: POKE 5,0
  30. 270  POKE 254,66
  31. 280  HGR : VTAB 21: PRINT "SHAPES CAN BE DRAWN AT VARIOUS SPEEDS"
  32. 290  POKE 253,2: CALL 4 *4096
  33. 300  FOR I = 1 TO 1000: NEXT I: HGR 
  34. 310  POKE 253,3: POKE 4,1: CALL 4 *4096
  35. 320  FOR I = 1 TO 2500: NEXT I
  36. 330 : HOME : VTAB 21: PRINT "INTERNAL CHANGES OF SCALE ALLOW LARGE ": PRINT "SCENES TO BE STORED COMPACTLY"
  37. 340  HGR : POKE 253,1: CALL 4 *4096
  38. 350  FOR I = 1 TO 3000: NEXT I
  39. 360  HOME : VTAB 21: HGR : PRINT "SCALE AND ROTATION CAN BE CHANGED UNDER": PRINT "PROGRAM CONTROL"
  40. 370  POKE 253,4: POKE 249,11: POKE 250,0: POKE 251,20: CALL 4 *4096 +16
  41. 380  POKE 249,31: POKE 250,0: POKE 251,20: POKE 252,8: CALL 4 *4096 +16
  42. 390  POKE 249,11: POKE 250,0: POKE 251,60: POKE 252,0: POKE 5,1: CALL 4 *4096 +16
  43. 400  POKE 249,51: POKE 250,0: POKE 251,80: POKE 5,2: POKE 252,8: CALL 4 *4096 +16
  44. 410  POKE 249,111: POKE 250,0: POKE 251,110: POKE 5,4: POKE 252,0: CALL 4 *4096 +16
  45. 500  RESTORE : PRINT  CHR$(4);"RUN KICK.IT.OFF"